home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / l / letov3.0.lha / ARexx / InfoVal.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-27  |  458b  |  25 lines
  1. /* Skrypt ARexx'a dla Leto 2.2
  2. ** Uûycie komendy InfoVal [Nagîówek|wartoôê]
  3. ** Polecenie pozwala podawaê komunikaty na ekranie Leto
  4. ** Gdy wszystko ok wtedy rc=0, gdy pojawiî sië bîâd to rc=1
  5. */
  6.  
  7. /* address    'rexx_leto' */
  8.  
  9. Options results
  10.  
  11. LT_Info=100
  12.  
  13.     do until LT_Info<1000
  14.     InfoVal 'Podaj liczbë mniejszâ od 1000|'LT_Info
  15.     if rc=1 then    do
  16.              Info1 30 'UWAGA|Wybrano opcjë Anuluj'
  17.              Exit
  18.             end
  19.     end
  20.  
  21.     Info1 30 'Odebraîem|Podaîeô liczbë 'LT_Info
  22.  
  23. Exit
  24.  
  25.